home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / Array.p < prev    next >
Text File  |  2000-04-24  |  1KB  |  39 lines
  1. pTempVar <- <primitive 110 6 >
  2. <primitive 112 pTempVar 1  " size " \
  3.   #( #[ 16r20 16rFA 16r01 16r04 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " printString " \
  7.   #( #[ 16r30 16r71 16r20 16rFA 16r01 16r04 16r72 16r22 16r50 16rCC 16rF7 \
  8.         16r15 16r20 16r22 16rFA 16r02 16r6F 16rA9 16r31 16r0B 16r11 \
  9.         16r21 16r0B 16r11 16r71 16r22 16r51 16rC1 16rF1 16r72 16rF2 \
  10.         16rF9 16r1A 16rF2 16r32 16r21 16r0B 16r11 16rF3 16rF5] \
  11.     #( ')' ' ' '#( '  )) >
  12.  
  13. <primitive 112 pTempVar 3  " grow: " \
  14.   #( #[ 16r20 16r21 16rFA 16r02 16r71 16rF3 16rF5] \
  15.     #(  )) >
  16.  
  17. <primitive 112 pTempVar 4  " at:put: " \
  18.   #( #[ 16r21 16r51 16rC7 16rFB 16r06 16r21 16r20 16rFA 16r01 16r04 16rCC \
  19.         16rF7 16r06 16r20 16r30 16rBC 16rF2 16r5D 16rF3 16rF2 16r20 \
  20.         16r21 16r22 16rFA 16r03 16r70 16rF2 16r22 16rF3 16rF5] \
  21.     #( 'index error'  )) >
  22.  
  23. <primitive 112 pTempVar 5  " at: " \
  24.   #( #[ 16r21 16r51 16rC7 16rFB 16r06 16r21 16r20 16rFA 16r01 16r04 16rCC \
  25.         16rF7 16r06 16r20 16r30 16rBC 16rF2 16r5D 16rF3 16rF2 16r20 \
  26.         16r21 16rFA 16r02 16r6F 16rF3 16rF5] \
  27.     #( 'index error'  )) >
  28.  
  29. <primitive 112 pTempVar 6  " new: " \
  30.   #( #[ 16r21 16rFA 16r01 16r72 16rF3 16rF5] \
  31.     #(  )) >
  32.  
  33. <primitive 98 #Array \
  34.   <primitive 97 #Array #ArrayedCollection #AmigaTalk:General/Array.st \
  35.    #(  ) \
  36.    #( #size #printString #grow: #at:put: #at: #new:  ) \
  37.   pTempVar 3 4 >>
  38.  
  39.